home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbsrch / file0.frm < prev    next >
Text File  |  1994-09-10  |  5KB  |  157 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    Caption         =   "Form"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1500
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Left            =   1035
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   7365
  13.    Top             =   1155
  14.    Width           =   7485
  15.    Begin CommandButton Command2 
  16.       Caption         =   "&Cancel"
  17.       Enabled         =   0   'False
  18.       Height          =   735
  19.       Left            =   4500
  20.       TabIndex        =   7
  21.       Top             =   2700
  22.       Width           =   2655
  23.    End
  24.    Begin TextBox Text2 
  25.       FontBold        =   0   'False
  26.       FontItalic      =   0   'False
  27.       FontName        =   "MS Sans Serif"
  28.       FontSize        =   8.25
  29.       FontStrikethru  =   0   'False
  30.       FontUnderline   =   0   'False
  31.       Height          =   285
  32.       Left            =   4500
  33.       TabIndex        =   5
  34.       Text            =   "c:\windows"
  35.       Top             =   1560
  36.       Width           =   2655
  37.    End
  38.    Begin CommandButton Command1 
  39.       Caption         =   "&Search"
  40.       Height          =   735
  41.       Left            =   4500
  42.       TabIndex        =   4
  43.       Top             =   1920
  44.       Width           =   2655
  45.    End
  46.    Begin TextBox Text1 
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   285
  54.       Left            =   4500
  55.       TabIndex        =   2
  56.       Text            =   "bmp; readme.txt; w??.ini; s*.dll"
  57.       Top             =   780
  58.       Width           =   2655
  59.    End
  60.    Begin ListBox List1 
  61.       FontBold        =   0   'False
  62.       FontItalic      =   0   'False
  63.       FontName        =   "MS Sans Serif"
  64.       FontSize        =   8.25
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   3540
  68.       Left            =   60
  69.       TabIndex        =   0
  70.       Top             =   420
  71.       Width           =   4335
  72.    End
  73.    Begin Label Label1 
  74.       AutoSize        =   -1  'True
  75.       Caption         =   "Here is the path you start your search:"
  76.       FontBold        =   0   'False
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   8.25
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   0   'False
  82.       Height          =   195
  83.       Index           =   2
  84.       Left            =   4500
  85.       TabIndex        =   6
  86.       Top             =   1320
  87.       Width           =   2685
  88.       WordWrap        =   -1  'True
  89.    End
  90.    Begin Label Label1 
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "Here are the extensions or files you're looking for (extensions ""exe"" not *.exe"" or "".exe""):"
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   585
  100.       Index           =   1
  101.       Left            =   4500
  102.       TabIndex        =   3
  103.       Top             =   180
  104.       Width           =   2685
  105.       WordWrap        =   -1  'True
  106.    End
  107.    Begin Label Label1 
  108.       AutoSize        =   -1  'True
  109.       Caption         =   "Here are the files found by the routine:"
  110.       FontBold        =   0   'False
  111.       FontItalic      =   0   'False
  112.       FontName        =   "MS Sans Serif"
  113.       FontSize        =   8.25
  114.       FontStrikethru  =   0   'False
  115.       FontUnderline   =   0   'False
  116.       Height          =   195
  117.       Index           =   0
  118.       Left            =   60
  119.       TabIndex        =   1
  120.       Top             =   120
  121.       Width           =   2700
  122.    End
  123. End
  124. Option Explicit
  125.  
  126. Sub Command1_Click ()
  127. Dim i As Integer
  128. Dim temp$, path$
  129.     path$ = Text2.Text
  130.     Backslash path$
  131.     On Error Resume Next
  132.     If Dir$(path$ + "NUL") = "" Then
  133.         MsgBox "Wrong path", 48, AppName
  134.         Exit Sub
  135.     End If
  136.     Command2.Enabled = True
  137.     On Error GoTo 0
  138.     temp$ = Trim$(text1.Text)
  139.     i = InStr(temp$, ";")
  140.     ReDim extensions(0) As String
  141.     Do Until i = 0
  142.         ReDim Preserve extensions(UBound(extensions) + 1)
  143.         extensions(UBound(extensions) - 1) = Left$(temp$, i - 1)
  144.         temp$ = Trim$(Right$(temp$, Len(temp$) - i))
  145.         i = InStr(temp$, ";")
  146.     Loop
  147.     ReDim Preserve extensions(UBound(extensions) + 1)
  148.     extensions(UBound(extensions) - 1) = temp$
  149.     SuchePfad path$, extensions()
  150.     Command2.Enabled = False
  151. End Sub
  152.  
  153. Sub Command2_Click ()
  154.     SuchEnde = True
  155. End Sub
  156.  
  157.